home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
perl
/
prlbkxmp.lha
/
ch5
/
findbit
< prev
next >
Wrap
Text File
|
1991-01-08
|
184b
|
7 lines
undef _$_F_O_U_N_D;
if (_$_V_E_C_T_O_R =~ /[^\000]/) {
for (length($`)*8..length($`)*8+7) {
_$_F_O_U_N_D = $_, last if vec(_$_V_E_C_T_O_R,$_,1);
}
}